home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume89 / kernel / flush2.1 < prev    next >
Internet Message Format  |  1989-05-18  |  2KB
  1. Path: xanth!ames!apple!sun!swap!page
  2. From: page%swap@Sun.COM (Bob Page)
  3. Newsgroups: comp.sources.amiga
  4. Subject: v89i147:  flush - force a global expunge v2
  5. Message-ID: <105675@sun.Eng.Sun.COM>
  6. Date: 18 May 89 18:37:54 GMT
  7. Sender: news@sun.Eng.Sun.COM
  8. Lines: 65
  9. Approved: page@sun.com
  10.  
  11. Submitted-by: recondo!sirius@uunet.UU.NET (Michael Stilson)
  12. Posting-number: Volume 89, Issue 147
  13. Archive-name: kernel/flush2.1
  14.  
  15. A nice & tiny "Flush" program to make Exec Expunge all that's Expungable.
  16.  
  17. [uuencoded executable included.  ..bob]
  18.  
  19. # This is a shell archive.
  20. # Remove anything above and including the cut line.
  21. # Then run the rest of the file through 'sh'.
  22. # Unpacked files will be owned by you and have default permissions.
  23. #----cut here-----cut here-----cut here-----cut here----#
  24. #!/bin/sh
  25. # shar: SHell ARchive
  26. # Run the following text through 'sh' to create:
  27. #    flush.a
  28. #    flush.uu
  29. # This is archive 1 of a 1-part kit.
  30. # This archive created: Thu May 18 11:30:01 1989
  31. echo "extracting flush.a"
  32. sed 's/^X//' << \SHAR_EOF > flush.a
  33. X;DateStamp: Sunday 07-May-89 18:43:20
  34. X; Flush.a   Flush out ram.  Mike 'Sirius' Stilson  (c) 1989 Sirius Software
  35. X;
  36. X;  A nice & tiny "Flush" program to make Exec EXPUNGE all that's EXPUNGABLE
  37. X;
  38. X;  (Assembled with CAPE this should come out to 52 bytes.. 14 bytes of program
  39. X;   and a bunch of bytes of hunk information)
  40. X;
  41. X    EXEOBJ
  42. X    OPTIMON
  43. X    SMALLOBJ
  44. X    OBJFILE        "Flush"
  45. X    LISFILE        "Flush.Lis"
  46. X
  47. X
  48. XAllocMem    equ    -$0c6
  49. X
  50. XFlush:
  51. X    moveq    #-1,D0        ; Allocate 4 Gig.
  52. X    move.l    #10001,D1    ; MEMF_PUBLIC + MEMF_CLEAR
  53. X    movea.l    $4,A6        ; ExecBase
  54. X    jsr    AllocMem(a6)    ; AllocMem(ByteSize, Requirements) (D0/D1)
  55. X                ; I hope none of you have 4 Gig... we don't
  56. X                ; even test it let alone free it up.
  57. X    moveq    #0,d0        ; So we don't return an error.
  58. X    rts            ; Return
  59. X    END
  60. X
  61. X
  62. SHAR_EOF
  63. echo "extracting flush.uu"
  64. sed 's/^X//' << \SHAR_EOF > flush.uu
  65. X
  66. Xbegin 644 Flush
  67. XM```#\P`````````!```````````````%```#Z0````5P_R(\```G$2QX``1.H
  68. X+KO\Z<`!.=0```_(!0
  69. X``
  70. Xend
  71. Xsize 56
  72. SHAR_EOF
  73. echo "End of archive 1 (of 1)"
  74. # if you want to concatenate archives, remove anything after this line
  75. exit
  76.